home *** CD-ROM | disk | FTP | other *** search
/ Postcard CD: Toronto / Postcard CD: Toronto (2004).iso / mac / PCDSS / TO2Binary.dcr / Internal_26_setPicSize-Sprite2.ls < prev    next >
Encoding:
Text File  |  2002-01-04  |  718 b   |  23 lines
  1. on beginSprite me
  2.   if (the desktopRectList)[1] = rect(0, 0, 1024, 768) then
  3.     set the width of sprite 2 to 1024
  4.     set the height of sprite 2 to 768
  5.     set the locH of sprite 2 to 512
  6.     set the locV of sprite 2 to 384
  7.   else
  8.     if (the desktopRectList)[1] = rect(0, 0, 800, 600) then
  9.       set the width of sprite 2 to 800
  10.       set the height of sprite 2 to 600
  11.       set the locH of sprite 2 to 511
  12.       set the locV of sprite 2 to 383
  13.     else
  14.       if (the desktopRectList)[1] = rect(0, 0, 640, 480) then
  15.         set the width of sprite 2 to 640
  16.         set the height of sprite 2 to 480
  17.         set the locH of sprite 2 to 511
  18.         set the locV of sprite 2 to 383
  19.       end if
  20.     end if
  21.   end if
  22. end
  23.